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EDTSWFTOP = go to top of current buffer 14-48 -Sep-1984 :09 VAX-11 BLi 
° . 14-Se P1984 4 98: 38:0? DISKSVMSM 
} ZTITLE ep lovt ior = go to top of current buffer’ 
¢ MODULE EDTSWFTOP ( ! Go to top of current buf 
7 OY DENT = 'v04-000' ' File: WFTOP.BLI 
= 
005 BEGIN 


OOoCoooooooooooooooooo 
INN =O OCe 
NAMEN OOO NOAUN EWN O OONOAUL WOOO 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND og Ly 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCh EN ~ WITH a THE 


TRANSFERRED. 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ePORAT itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


oe 
FACILITY: EDT == The DEC Standard Editor 
ABSTRACT: 


Go to the top of the current buffer. 


ENVIRONMENT: Runs at any access mode - AST reentrant 


AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 
MODIFIED BY: 


1-002 - Regular 
1-005 - Improve Listing appearance. JBS 3B. yun=1983 


1-001 - Original. DJS 23-Feb-1981. This module was created by 


extracti ng routine EDT$$TOP_BUF tre module EDTWF. 
ze headers. JBS 19m Mar-1 
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TOP = go to top of current buffer 1b-se =1984 02:16:09 VAX-11 Bliss-32 V4.0-74 Page 
OP_BUF = go to top of current buffer 1e-8ep-19 4 95:38:08 DISKSVMSMASTER:CEDT.SRCJWFTOP.BLI;1 : 
ZSBTTL "EDTSSTOP_BUF = go to top of current buffer’ 
GLOBAL ROUTINE EDTSS$TOP_BUF ! Go to top of current buffer 
: NOVALUE = 
++ 
FUNCTIONAL DESCRIPTION: 


Position to the top of the current buffer. 


: FORMAL PARAMETERS: 


NONE 


! IMPLICIT INPUTS: 


EDTS$$A_CUR_BUF 
EDTS$$L-LNO~ZERO 


EDTS$A_CUR_BUF 


ROUTINE VALUE: 


NONE 


: SIDE EFFECTS: 


! 

! 

' 

' 

i 
i 
{ IMPLICIT OUTPUTS: 
i 
' 

i 
ie 


May read a bucket 


BEGIN 


EXTERNAL ROUTINE 
EDT$S$RD_CURLN : NOVALUE; 


EXTERNAL 
EDTSSA_CUR_BUF : REF TBCB BLOCK, 


= ' Current text buffer control block 
EDT$$L_LNO_ZERO : LN_BLOCR; 


LOCAL 
FIRST; 
EDTSS$A_CUR_BUF CTBCB_CUR_BUKT] = FIRST = .EDTS$A_CUR_BUF CTBCB_FIRST_BUKTI; 
EDTSS$SA_CUR_BUF CTBCB-LINE_ADDR] = WFB_FIXED_SIZE; 
EDTS$S$A_CUR BUF CTBCB_CHAR_POS] = 0; 
MOVELIRE (EDTS$L_LNO_ZERO; EDT$$A_CUR_BUF CTBCB_CUR_LINJ); 
EDTSS$RD_CURLN (); 
END; ! of routine EDTS$STOP_BUF 


-TITLE EDTSWFTOP EDTSWFTOP - go to top of current buff 
er 
-IDENT \V04-000\ 
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PERRO See es Rs, ee aaa ES a eR aE EP ORE Bn RA Pi OR oe 
| | 
| EDTSwF TOP EDTSWFTOP = go to top of current buffer se 4 9 -VAX=11_BLiss-32_V4.0-74 Page 4 EDT! 
v04=000 EDTS$TOP_BUF’ = go to top of current buffer 14- 35- 1984 98: 28: 03 DISKSVMSMASTER:CEDT.SRCJWFTOP.BLI;1 > (3). 04 
} 


.EXTRN EDTSSRD_CURLN, EDTS$$A_CUR_BUF 
SEXTRN EDTS$L_CNO_ZERO 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


03¢ 00 .ENTRY EDTSSTOP BUF. , Save R2,R3,R4,R5 1 0656 

50 000000006 00 , 0 MOVL EDTS$A_CO COR_BUF, RO : 0699 
1 OE Ad 3C 9000 MOVZ2WL 14(RO)7 F Re Wr : 
04 AO 51 8 OD MOVW FIRST athe : 

60 08 DO 00011 MOVE #8, (RO) + 0700 

06 Ad 000000006 00 = 06 83 oOiF moves re. EDT T$$L_LNO_ZERO, 6(RO) ; $593 

itdetditds 88 00 FB 60020 CALLS #0. EDTS$R 5 CURLN ; 0708 


| 
04 
; Routine Size: 40 bytes, Routine Base: _EDTSCODE + 0000 
; 17? 0705 1 
; «4136 0706 1 !<BLF/PAGE> 


ee 


OO 


Elapsed Time: 00:10.9 
Lines/CPU Min: 4468 
Lexemes/CPU-Min: 13121 
Used: 62 pages 
Compilation Complete 


7 
| Dt | 
| EDTSwF TOP EDTSwF TOP o to top of current buffer 16-Sep-1 VAX-11 Bliss-32 V4. Page 5 
. -000 EDTS$TOP "Bur! = go to top of current buffer 14- i 198 95: 38:93 DISKSVMSMASTER: CED i? she WFTOP.BLI;1 ° (4) 

; I= 0707 1 END ! of module EDTSWFTOP 
(3 139 B08 1 
: 140 709 0 ELUDOM | 
i | 
| | 
| | 
| | 
: PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 40 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
Bee sera: eek Pee ne ee Syabolg qncoese= Pages Processing 
; File Total Loaded Percent Mapped Time 
: $255$DUA28: (EDT. SRCJEDT.L32;1 377 31 8 40 00:00.2 
; _$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
| 
e BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:WF TOP/OBJ=OBJ$:WF TOP MSRC$:WFTOP.BLI/UPDATE=(ENHS$:WF TOP) 
Size: 40 code + 0 data bytes 
Run Time: 709.5 
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